' https://rosettacode.org/wiki/Julia_set#QBasic

escala = 1 / 81
zeroX = 160
zeroY = 100
maxiter = 32
 
CR = -.798
CI = .1618
 
SCREEN 7 ' 🟠  SCREEN 12
FOR x = 0 TO 2 * zeroX - 1
    FOR y = 0 TO 2 * zeroY - 1
        zreal = (x - zeroX) * escala
        zimag = (zeroY - y) * escala
        FOR iter = 1 TO maxiter
            BR = CR + zreal * zreal - zimag * zimag
            zimag = CI + 2 * zreal * zimag
            zreal = BR
            IF zreal * zreal + zimag * zimag > 4 THEN
                PSET (x, y), 1 + (iter MOD 16)
                iterm = maxiter + 1 ' 🟠 EXIT FOR
            END IF
        NEXT iter
    NEXT y
NEXT x
END